Top 10k strings from Johnny Reb (1983)(MC Lothlorien).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
7 f$="cross"
4 ntp>ntc)+(ntc
2 y1+y,x1+x;
2 x(x+x1,y+y1)
2 tvc=tvc+c(z,1
2 tv=tv-ni*3
2 q$="Are you happy with this":
2 d(a)=c(a,4
2 a(x+x2,y+y2)
2 ;("That is not a gun"
2 ;"________________________________"(
2 ;"You may not cross here ":
2 ;"You have reached the enemy flag ":
2 ;"You are not on the river bank ":
2 ;"The unit has been drowned ":
2 ;"That is as far as you can go ":
2 ;"Player two :";
2 ;"Player one :";
2 ;"=";na;" total=";na+nc+ni;
2 ;" Value=";na*2
2 ;" ":
2 *ne)+(ne>0
2 );("You have no more ammunition"
2 (y1+y,x1+x):
2 (q$+"? ");
1 x=x+(b$(z)=">")-(b$(z)="<")
1 tvp=tvp+(p(z,4
1 tvp=tvp+(10
1 tvp=tvp+((((2
1 tvc=tvc+c(z,4
1 tvc=tvc+(10
1 tv=tv-nc*5
1 tv=tv-na*2
1 tv=tv+ni*3
1 tv=tv+nc*5
1 q(a)=p(a,4
1 q$="Your move plr 2 (max "+
1 q$="Your move plr 1 (max "+
1 q$="Is player 1 The (U)nion or The (C)onfederates":
1 q$="How much infantry (1-"+
1 q$="How much artillery,plr1":
1 q$="How much artillery plr 2 (0-"+
1 q$="How many players(1 or 2)":
1 q$="How many infantry units,plr 1 (min 1)":
1 q$="How many cavalry units,plr1":
1 q$="How long (in game turns)":
1 q$="Do you want my troops the same":
1 q$="Do you want a time limit ":
1 q$="Cavalry (0-"+
1 p$="The Union ":
1 p$="The Confederates ":
1 ntp=ni+nc+na
1 ntc=ni+nc+na:
1 ntc+((ntp-ntc)
1 d1>(ds/c(z,4
1 d1=ds/c(z,4
1 c$="The Union ":
1 c$="The Confederates ":
1 b$=" >> >>>><<>>>>><>>>>><>> <><<< <<<<<><<<<<><<<><<<<>><<< ><< <<<> > <<<<>><< >>>>>>>>>>>>>>>>>>>>"
1 a$="union"(
1 a$="confederates"(
1 a$="
1 JRUDG
1 JR x^
1 JR 8
1 Is player 1 The (U)nion or The (C)onfederatesA
1 DD22~zzJJJ
1 ?""LL~^^RRR
1 ;players;" player";("s"
1 ;p$;("has"
1 ;p$;" hit ";c$:
1 ;c$;" hit ";p$:
1 ;("The unit has been drowned "
1 ;"____________________________":
1 ;"_________"
1 ;"Time limit of ";tim-1
1 ;"The enemy has reached the flag":
1 ;"Rewind tape,plug in the ""ear"""'"lead then press any key"''"if any report but ""O.K."" appears"'"then type ""GOTO 8600""":
1 ;"Please read the written notes enclosed in the cassette case"
1 ;"Player two's turn now ":
1 ;"Player two :";tvc
1 ;"Player one :";tvp;
1 ;"Player 1 is ";p$''("Player 2 "
1 ;"I will work out who is winning as the time limit you set has expired"
1 ;"Enter Yes or No please":
1 ;"Enter Numerics Please":
1 ;"Do not stop the tape yet"
1 ;"Both sides have been annihilated":
1 ;"Another go? (y/n)"
1 ;" game turns";
1 ;" ammunition ";am;
1 ;" ammunition ";am2:
1 ;" ":
1 ;" ";
1 *bp)-p(z,1
1 )="n")+(d$(1
1 )="e")-(d$(2
1 )="e")-(d$(1
1 )="U")+("have"
1 )="C");" black men":
1 );("the computer"
1 );"are the Victors"
1 );" is ";c$;
1 )+") plr2":
1 )+") plr 2":
1 (y1,x1)>63
1 (ntp>ntc))
1 "7","1","2","7","2","4","4","0"
1 "50","50","126","122","122","74","74","74"
1 "2","5","5","2","5","5","2","0"
1 "1","2","4","7","5","5","7","0"
1 "0","32","50","51","253","252","68","68"
1 "0","0","6","28","112","216","188","24"
1 >> >>>><<>>>>><>>>>><>> <><<< <<<<<><<<<<><<<><<<<>><<< ><< <<<> > <<<<>><< >>>>>>>>>>>>>>>>>>>>
1 1983 M.C. Lothlorien